home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MENUBD.DIR / 00033_Script_SCRIPTS_GENE_MENUBD < prev    next >
Text File  |  2002-07-23  |  3KB  |  98 lines
  1. global validMBD, ouvreMenuBD, rollMessBD, menuFermeBD, gNbStamps, gfirstStampTrackNo
  2. global gL_bornes_Ekerre_R, gnewNivson, nivson, gmemNivson, gflag_Silence, gpisteNote_Silence
  3. ----------------------
  4. on prepareMovie
  5.   gNbStamps = 3
  6.   gL_bornes_Ekerre_R =[41,96,159,407]
  7.   case(nivson[3] <40) of
  8.     1:
  9.       gmemNivson = 0
  10.     0:
  11.       case(nivson[3] < 100) of
  12.         1:
  13.           gmemNivson = 1
  14.         0:
  15.           case(nivson[3] < 150) of
  16.             1:
  17.               gmemNivson = 2
  18.             0:
  19.               
  20.               case(nivson[3] < 210) of
  21.                 1:
  22.                   gmemNivson = 3
  23.                 0:
  24.                   gmemNivson = 4
  25.               end case      
  26.           end case
  27.       end case
  28.   end case
  29.   if gmemNivson = VOID then gmemNivson = 0
  30.   if nivson = VOID then nivson = [0,0,0]
  31. end
  32. --------------
  33. on griser
  34.   repeat with i=1 to gNbStamps
  35.     if validMBD[i]= 0 then
  36.       Nopiste = gfirstStampTrackNo + i -1
  37.       tampon = sprite(Nopiste).member.name
  38.       puppetsprite Nopiste, TRUE -- on rend la piste esclave pour conserver le changement d'acteur
  39.       sprite(Nopiste).member = tampon&"_G"
  40.       updateStage
  41.     end if
  42.   end repeat
  43. end griser 
  44. ----------------------------------
  45. on fermerMenu
  46.   ouvreMenuBD=0
  47.   go "fin"
  48. end fermerMenu
  49. ------------------------------
  50. on calcul_nivson
  51.   zelisteNivpossibles = [0,64, 128,192,255]
  52.   zenivselected = zelisteNivpossibles[gnewNivson + 1]
  53.   
  54.   memNivson = nivson
  55.   L_coefmodif_son = [0,0,0]
  56.   repeat with i = 1 to 3
  57.     case(nivson[i]) of
  58.       0:
  59.         L_coefmodif_son[i] = 9999
  60.       otherwise:
  61.         L_coefmodif_son[i] = abs(float(zenivselected)/memnivson[i]) --on prend la v.absolue pour la piste son 1 car la note silence donne un volume nΘgatif
  62.     end case
  63.   end repeat
  64.   
  65.   repeat with i = 1 to 3
  66.     case(L_coefmodif_son[i]) of
  67.       9999:
  68.         case(gnewNivson) of
  69.           0:
  70.             sound(i).volume = 0
  71.           1:
  72.             sound(i).volume = 64*gflag_Silence
  73.           2:
  74.             sound(i).volume= 128
  75.           3:
  76.             sound(i).volume= 192
  77.           4:
  78.             sound(i).volume = 255
  79.         end case
  80.       otherwise:
  81.         sound(i).volume = nivSon[i]* L_coefmodif_son[i]
  82.     end case
  83.   end repeat
  84.   case(gnewNivson) of
  85.     0:
  86.       nivSon = [0,0,0]
  87.     1:
  88.       nivSon = [64*gflag_Silence,64,64]
  89.     2:
  90.       nivSon = [128,128,128]
  91.     3:
  92.       nivSon = [192,192,192]
  93.     4:
  94.       nivSon = [255,255,255]
  95.   end case
  96.   
  97. end
  98. -------------------------